home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / STRING / to_upper.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  447 b   |  28 lines
  1.  
  2. **
  3. ** to_upper
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8. to_upper
  9.         move.l  #%11011111,d1
  10.         move.l  #'a',d2
  11.         move.l  #'z',d3
  12.         move.l  ($C,a1),a2
  13.         move.l  ($8,a1),d0
  14.         beq.s   .end
  15.         sub.l   #1,d0
  16.  
  17. .loop   move.b  (a2)+,d4
  18.         cmp.b   d4,d2
  19.         bgt.s   .next
  20.         cmp.b   d4,d3
  21.         blt.s   .next
  22.         and.b   d1,d4
  23.         move.b  d4,(-1,a2)
  24. .next   dbra    d0,.loop
  25.  
  26. .end    rts
  27.  
  28.